home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 August / PCWorld_2001-08_cd.bin / Software / Vyzkuste / codePad / CodePad30.exe / Syntax Definitions / modula2.def < prev    next >
Text File  |  2000-11-08  |  9KB  |  311 lines
  1. object TPersHolder
  2.   P.Name = 'Modula-2'
  3.   P.SyntaxBlocks = <
  4.     item
  5.       Name = 'Default'
  6.       ID = 0
  7.       CaseSensitive = True
  8.       FIText = 0
  9.       FIIntNum = 1
  10.       FIFloatNum = 2
  11.       FIHexNum = 3
  12.       FISymbol = 16
  13.       UseSymbols = True
  14.       UseComments = True
  15.       UseMultiLineComments = True
  16.       UseStrings = True
  17.       UseSingleLineStrings = True
  18.       UseNumbers = True
  19.       UseSuffixedNumbers = True
  20.       UseMultipleNumSuffixes = False
  21.       UseKeywords = True
  22.       BlockDelimiters = <>
  23.       MultiLineCommentDelimiters = <
  24.         item
  25.           FontID = 4
  26.           LeftDelimiter = '(*'
  27.           RightDelimiter = '*)'
  28.         end>
  29.       SingleLineStringDelimiters = <
  30.         item
  31.           FontID = 5
  32.           LeftDelimiter = '"'
  33.           RightDelimiter = '"'
  34.         end>
  35.       NumSuffixes = <
  36.         item
  37.           LeftDelimiter = 'X'
  38.         end
  39.         item
  40.           LeftDelimiter = 'L'
  41.         end>
  42.       KeywordSets = <
  43.         item
  44.           FontID = 6
  45.           Name = 'reserved'
  46.           Keywords = 
  47.             'ARRAY,ASM,BEGIN,BOOLEAN,BY,CARDINAL,CASE,CHAR,CLASS,CONST,DEFINI' +
  48.             'TION,DESTROY,DIV,DO,ELSE,ELSIF,END,EXIT,EXPORT,FOR,FOREIGN,FROM,' +
  49.             'IF,IMPLEMENTATION,IMPORT,INHERIT,INIT,INLINE,INTEGER,LONGCARD,LO' +
  50.             'NGINT,LONGREAL,LOOP,MOD,MODULE,NIL,OF,POINTER,PROCEDURE,REAL,REC' +
  51.             'ORD,REPEAT,RETURN,SET,THEN,TO,TYPE,UNTIL,VAR,WHILE,WITH'
  52.         end>
  53.     end
  54.     item
  55.       Name = 'Assembler'
  56.       ID = 1
  57.       ParentID = 0
  58.       CaseSensitive = True
  59.       FIText = 7
  60.       FIIntNum = 8
  61.       FIFloatNum = 9
  62.       FIHexNum = 10
  63.       UseComments = True
  64.       UseMultiLineComments = True
  65.       UseStrings = True
  66.       UseSingleLineStrings = True
  67.       UseNumbers = True
  68.       UseSuffixedNumbers = True
  69.       UseMultipleNumSuffixes = False
  70.       UsePrefixedIdentifiers = True
  71.       UseKeywords = True
  72.       BlockDelimiters = <
  73.         item
  74.           LeftDelimiter = 'ASM'
  75.           RightDelimiter = 'END'
  76.         end>
  77.       MultiLineCommentDelimiters = <
  78.         item
  79.           FontID = 11
  80.           LeftDelimiter = '(*'
  81.           RightDelimiter = '*)'
  82.         end>
  83.       SingleLineStringDelimiters = <
  84.         item
  85.           FontID = 17
  86.           LeftDelimiter = '"'
  87.           RightDelimiter = '"'
  88.         end>
  89.       NumSuffixes = <
  90.         item
  91.           LeftDelimiter = 'X'
  92.         end
  93.         item
  94.           LeftDelimiter = 'L'
  95.         end>
  96.       IdentPrefixes = <
  97.         item
  98.           LeftDelimiter = '@'
  99.         end>
  100.       KeywordSets = <
  101.         item
  102.           FontID = 13
  103.           Name = 'OpCodes'
  104.           Keywords = 
  105.             'AAA,AAD,AAM,AAS,ADC,ADD,AND,ARPL,BOUND,BSF,BSR,BSWAP,BT,BTC,BTR,' +
  106.             'BTS,CALL,CBW,CDQ,CLC,CLD,CLI,CLTS,CMC,CMP,CMPS,CMPSB,CMPSD,CMPSW' +
  107.             ',CMPXCHG,CWD,CWDE,DAA,DAS,DEC,DIV,ENTER,ESC,F2XM1,FABS,FADD,FADD' +
  108.             'P,FBLD,FBSTP,FCHS,FCLEX,FCOM,FCOMP,FCOMPP,FCOS,FDECSTP,FDISI,FDI' +
  109.             'V,FDIVP,FDIVR,FDIVRP,FENI,FFREE,FIADD,FICOM,FICOMP,FIDIV,FIDIVR,' +
  110.             'FILD,FIMUL,FINCSTP,FINIT,FIST,FISTP,FISUB,FISUBR,FLD,FLD1,FLDCW,' +
  111.             'FLDENV,FLDL2E,FLDL2T,FLDLG2,FLDLN2,FLDPI,FLDZ,FMUL,FMULP,FNCLEX,' +
  112.             'FNDISI,FNENI,FNINIT,FNOP,FNSAVE,FNSTCW,FNSTENV,FNSTSW,FPATAN,FPR' +
  113.             'EM,FPREM1,FPTAN,FRNDINT,FRSTOR,FSAVE,FSCALE,FSETPM,FSIN,FSINCOS,' +
  114.             'FSQRT,FST,FSTCW,FSTENV,FSTP,FSTSW,FSUB,FSUBP,FSUBR,FSUBRP,FTST,F' +
  115.             'UCOM,FUCOMP,FUCOMPP,FWAIT,FXAM,FXCH,FXTRACT,FYL2X,FYL2XP1,HLT,ID' +
  116.             'IV,IMUL,IN,INC,INSB,INSD,INSW,INT,INTO,INVD,INVLPG,IRET,IRETD,JA' +
  117.             ',JAE,JB,JBE,JC,JCXZ,JE,JECXZ,JG,JGE,JL,JLE,JMP,JNA,JNAE,JNB,JNBE' +
  118.             ',JNC,JNE,JNG,JNGE,JNL,JNLE,JNO,JNP,JNS,JNZ,JO,JP,JPE,JPO,JS,JZ,L' +
  119.             'AHF,LAR,LDS,LEA,LEAVE,LES,LFS,LGDT,LGS,LIDT,LLDT,LMSW,LOCK,LODS,' +
  120.             'LODSB,LODSD,LODSW,LOOP,LOOPD,LOOPDE,LOOPDNE,LOOPDNZ,LOOPDZ,LOOPE' +
  121.             ',LOOPNE,LOOPNZ,LOOPZ,LSL,LSS,LTR,MOV,MOVS,MOVSB,MOVSD,MOVSW,MOVS' +
  122.             'X,MOVZX,MUL,NEG,NOP,NOT,OR,OUT,OUTSB,OUTSD,OUTSW,POP,POPA,POPAD,' +
  123.             'POPF,POPFD,PUSH,PUSHA,PUSHAD,PUSHF,PUSHFD,RCL,RCR,REP,REPE,REPNE' +
  124.             ',REPNZ,REPZ,RET,RETF,RETN,ROL,ROR,SAHF,SAL,SAR,SBB,SCAS,SCASB,SC' +
  125.             'ASD,SCASW,SEGCS,SEGDS,SEGES,SEGFS,SEGGS,SEGSS,SETA,SETAE,SETB,SE' +
  126.             'TBE,SETC,SETE,SETG,SETGE,SETL,SETLE,SETNA,SETNAE,SETNB,SETNBE,SE' +
  127.             'TNC,SETNE,SETNG,SETNGE,SETNL,SETNLE,SETNO,SETNP,SETNS,SETNZ,SETO' +
  128.             ',SETP,SETPE,SETPO,SETS,SETZ,SGDT,SHL,SHLD,SHR,SHRD,SIDT,SLDT,SMS' +
  129.             'W,STC,STD,STI,STOS,STOSB,STOSD,STOSW,STR,SUB,TEST,VERR,VERW,WAIT' +
  130.             ',WBINVD,XADD,XCHG,XLAT,XOR'
  131.         end
  132.         item
  133.           FontID = 14
  134.           Name = 'Operands'
  135.           Keywords = 
  136.             'AH,AL,AND,AX,BH,BL,BP,BX,BYTE,CH,CL,CS,CX,DH,DI,DL,DS,DWORD,DX,E' +
  137.             'AX,EBP,EBX,ECX,EDI,EDX,EIP,ES,ESI,ESP,FS,GS,HIGH,LOW,MOD,NOT,OFF' +
  138.             'SET,OR,PTR,QWORD,SHL,SHR,SI,SP,SS,ST,TBYTE,TYPE,WORD,XOR'
  139.         end
  140.         item
  141.           FontID = 15
  142.           Name = 'Directives'
  143.           Keywords = 'DB,DD,DW'
  144.         end>
  145.     end>
  146.   P.FontTable = <
  147.     item
  148.       FontID = 0
  149.       GlobalAttrID = 'Whitespace'
  150.       Font.Charset = DEFAULT_CHARSET
  151.       Font.Color = clBlack
  152.       Font.Height = -13
  153.       Font.Name = 'Courier New'
  154.       Font.Style = []
  155.     end
  156.     item
  157.       FontID = 1
  158.       GlobalAttrID = 'Integer'
  159.       Font.Charset = DEFAULT_CHARSET
  160.       Font.Color = clGreen
  161.       Font.Height = -13
  162.       Font.Name = 'Courier New'
  163.       Font.Style = []
  164.     end
  165.     item
  166.       FontID = 2
  167.       GlobalAttrID = 'Float'
  168.       Font.Charset = DEFAULT_CHARSET
  169.       Font.Color = clGreen
  170.       Font.Height = -13
  171.       Font.Name = 'Courier New'
  172.       Font.Style = []
  173.     end
  174.     item
  175.       FontID = 3
  176.       GlobalAttrID = 'Integer'
  177.       Font.Charset = DEFAULT_CHARSET
  178.       Font.Color = clGreen
  179.       Font.Height = -13
  180.       Font.Name = 'Courier New'
  181.       Font.Style = []
  182.     end
  183.     item
  184.       FontID = 4
  185.       GlobalAttrID = 'Comment'
  186.       Font.Charset = DEFAULT_CHARSET
  187.       Font.Color = clGray
  188.       Font.Height = -13
  189.       Font.Name = 'Courier New'
  190.       Font.Style = [fsItalic]
  191.     end
  192.     item
  193.       FontID = 5
  194.       GlobalAttrID = 'String'
  195.       Font.Charset = DEFAULT_CHARSET
  196.       Font.Color = clMaroon
  197.       Font.Height = -13
  198.       Font.Name = 'Courier New'
  199.       Font.Style = []
  200.     end
  201.     item
  202.       FontID = 6
  203.       GlobalAttrID = 'Reserved words'
  204.       Font.Charset = DEFAULT_CHARSET
  205.       Font.Color = clBlue
  206.       Font.Height = -13
  207.       Font.Name = 'Courier New'
  208.       Font.Style = [fsBold]
  209.     end
  210.     item
  211.       FontID = 7
  212.       GlobalAttrID = 'Assembler'
  213.       BlockID = 1
  214.       Font.Charset = DEFAULT_CHARSET
  215.       Font.Color = clGreen
  216.       Font.Height = -13
  217.       Font.Name = 'Courier New'
  218.       Font.Style = []
  219.     end
  220.     item
  221.       FontID = 8
  222.       GlobalAttrID = 'Assembler'
  223.       BlockID = 1
  224.       Font.Charset = DEFAULT_CHARSET
  225.       Font.Color = clGreen
  226.       Font.Height = -13
  227.       Font.Name = 'Courier New'
  228.       Font.Style = [fsBold]
  229.     end
  230.     item
  231.       FontID = 9
  232.       GlobalAttrID = 'Assembler'
  233.       BlockID = 1
  234.       Font.Charset = DEFAULT_CHARSET
  235.       Font.Color = clGreen
  236.       Font.Height = -13
  237.       Font.Name = 'Courier New'
  238.       Font.Style = [fsBold]
  239.     end
  240.     item
  241.       FontID = 10
  242.       GlobalAttrID = 'Assembler'
  243.       BlockID = 1
  244.       Font.Charset = DEFAULT_CHARSET
  245.       Font.Color = clGreen
  246.       Font.Height = -13
  247.       Font.Name = 'Courier New'
  248.       Font.Style = [fsBold]
  249.     end
  250.     item
  251.       FontID = 11
  252.       GlobalAttrID = 'Comment'
  253.       BlockID = 1
  254.       Font.Charset = DEFAULT_CHARSET
  255.       Font.Color = clGray
  256.       Font.Height = -13
  257.       Font.Name = 'Courier New'
  258.       Font.Style = [fsItalic]
  259.     end
  260.     item
  261.       FontID = 17
  262.       GlobalAttrID = 'String'
  263.       BlockID = 1
  264.       Font.Charset = DEFAULT_CHARSET
  265.       Font.Color = clMaroon
  266.       Font.Height = -13
  267.       Font.Name = 'Courier New'
  268.       Font.Style = []
  269.     end
  270.     item
  271.       FontID = 13
  272.       GlobalAttrID = 'Assembler'
  273.       BlockID = 1
  274.       Font.Charset = DEFAULT_CHARSET
  275.       Font.Color = clGreen
  276.       Font.Height = -13
  277.       Font.Name = 'Courier New'
  278.       Font.Style = [fsBold]
  279.     end
  280.     item
  281.       FontID = 14
  282.       GlobalAttrID = 'Assembler'
  283.       BlockID = 1
  284.       Font.Charset = DEFAULT_CHARSET
  285.       Font.Color = clGreen
  286.       Font.Height = -13
  287.       Font.Name = 'Courier New'
  288.       Font.Style = [fsItalic]
  289.     end
  290.     item
  291.       FontID = 15
  292.       GlobalAttrID = 'Assembler'
  293.       BlockID = 1
  294.       Font.Charset = DEFAULT_CHARSET
  295.       Font.Color = clGreen
  296.       Font.Height = -13
  297.       Font.Name = 'Courier New'
  298.       Font.Style = [fsBold]
  299.     end
  300.     item
  301.       FontID = 16
  302.       GlobalAttrID = 'Delimiters'
  303.       Font.Charset = DEFAULT_CHARSET
  304.       Font.Color = clBlack
  305.       Font.Height = -13
  306.       Font.Name = 'Courier New'
  307.       Font.Style = []
  308.     end>
  309.   P.SyntaxVersion = 3
  310. end
  311.